<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>E-Drift: frontend/cmd_buffer.h Source File</title>

<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doc/style.css" rel="stylesheet" type="text/css" />

<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>

</head>
<body>
<div id="top"><!-- do not remove this div! -->


<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  
  
  <td style="padding-left: 0.5em;">
   <div id="projectname">E-Drift
   &#160;<span id="projectnumber">0.0</span>
   </div>
   
  </td>
  
  
  
 </tr>
 </tbody>
</table>
</div>

<!-- Generated by Doxygen 1.7.5.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="pages.html"><span>Related&#160;Pages</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Structures</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
    </ul>
  </div>
<div class="header">
  <div class="headertitle">
<div class="title">frontend/cmd_buffer.h</div>  </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">// callback: cmd_buffer</span>
<a name="l00002"></a>00002 
<a name="l00003"></a>00003 <span class="comment">// buffer management</span>
<a name="l00004"></a>00004 <span class="keywordtype">void</span> cmd_buffer(istringstream&amp; ss) {
<a name="l00005"></a>00005   
<a name="l00006"></a>00006   <span class="keywordtype">string</span> op;
<a name="l00007"></a>00007   <span class="keywordtype">string</span> name;
<a name="l00008"></a>00008   <span class="keywordflow">if</span>(!(ss&gt;&gt;op)) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;option: create|delete|copy&quot;</span>;
<a name="l00009"></a>00009   
<a name="l00010"></a>00010   <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;create&quot;</span>) {
<a name="l00011"></a>00011     <span class="keywordtype">string</span> snx, sny, snz;
<a name="l00012"></a>00012     <span class="keywordtype">int</span> nx,ny,nz;
<a name="l00013"></a>00013     <span class="keywordflow">if</span>(ss&gt;&gt;name&gt;&gt;snx) {
<a name="l00014"></a>00014       <span class="keywordflow">if</span>(search_buffer(name)&gt;=0) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer name exist&quot;</span>;
<a name="l00015"></a>00015       
<a name="l00016"></a>00016       <span class="keywordflow">if</span>(ss&gt;&gt;sny&gt;&gt;snz) {
<a name="l00017"></a>00017         nx=as_double(snx);
<a name="l00018"></a>00018         ny=as_double(sny);
<a name="l00019"></a>00019         nz=as_double(snz);
<a name="l00020"></a>00020       } <span class="keywordflow">else</span> {
<a name="l00021"></a>00021         istringstream nxny(translate_var(snx));
<a name="l00022"></a>00022         <span class="keywordflow">if</span>(!(nxny&gt;&gt;nx&gt;&gt;ny&gt;&gt;nz)) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;wrong buffer dimension&quot;</span>;
<a name="l00023"></a>00023         <span class="keywordflow">if</span>(nx*ny*nz&lt;=0) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;wrong size&quot;</span>;
<a name="l00024"></a>00024       }
<a name="l00025"></a>00025       
<a name="l00026"></a>00026       buffer.push_back(<span class="keyword">new</span> Buffer(name,nx,ny,nz));
<a name="l00027"></a>00027     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;parameter: name nx ny&quot;</span>;
<a name="l00028"></a>00028   }
<a name="l00029"></a>00029   
<a name="l00030"></a>00030   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;delete&quot;</span>) {
<a name="l00031"></a>00031     <span class="keywordflow">if</span>(ss&gt;&gt;name) {
<a name="l00032"></a>00032       <span class="keywordtype">int</span> bid=search_buffer(name);
<a name="l00033"></a>00033       <span class="keyword">delete</span> buffer[bid];
<a name="l00034"></a>00034       buffer.erase(buffer.begin()+bid);
<a name="l00035"></a>00035     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;required: name of buffer&quot;</span>;
<a name="l00036"></a>00036   }
<a name="l00037"></a>00037   
<a name="l00038"></a>00038   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;copy&quot;</span>) { <span class="comment">// copy source target</span>
<a name="l00039"></a>00039     <span class="keywordtype">string</span> source, target;
<a name="l00040"></a>00040     <span class="keywordflow">if</span>(ss&gt;&gt;source&gt;&gt;target) {
<a name="l00041"></a>00041       Buffer A; get_buffer(A,source);
<a name="l00042"></a>00042       Buffer B; get_buffer(B,target);
<a name="l00043"></a>00043       <span class="keywordflow">if</span>(A.empty || B.empty) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer not found&quot;</span>;
<a name="l00044"></a>00044       B.copy(A);
<a name="l00045"></a>00045     }
<a name="l00046"></a>00046   }
<a name="l00047"></a>00047   
<a name="l00048"></a>00048   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;add&quot;</span>) { <span class="comment">// in place</span>
<a name="l00049"></a>00049     <span class="keywordtype">string</span> a, b;
<a name="l00050"></a>00050     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;b) {
<a name="l00051"></a>00051       Buffer A; get_buffer(A,a);
<a name="l00052"></a>00052       Buffer B; get_buffer(B,b);
<a name="l00053"></a>00053       <span class="keywordflow">if</span>(A.empty) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer not found&quot;</span>;
<a name="l00054"></a>00054       <span class="keywordflow">if</span>(B.empty) {
<a name="l00055"></a>00055         <span class="keywordtype">double</span> v=as_double(translate_var(b));
<a name="l00056"></a>00056         A.add(v);
<a name="l00057"></a>00057       } <span class="keywordflow">else</span> A.add(B);
<a name="l00058"></a>00058     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;add A B&quot;</span>;
<a name="l00059"></a>00059   }
<a name="l00060"></a>00060   
<a name="l00061"></a>00061   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;sub&quot;</span>) { <span class="comment">// in place</span>
<a name="l00062"></a>00062     <span class="keywordtype">string</span> a, b;
<a name="l00063"></a>00063     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;b) {
<a name="l00064"></a>00064       Buffer A; get_buffer(A,a);
<a name="l00065"></a>00065       Buffer B; get_buffer(B,b);
<a name="l00066"></a>00066       <span class="keywordflow">if</span>(A.empty) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer not found&quot;</span>;
<a name="l00067"></a>00067       <span class="keywordflow">if</span>(B.empty) {
<a name="l00068"></a>00068         <span class="keywordtype">double</span> v=as_double(translate_var(b));
<a name="l00069"></a>00069         A.sub(v);
<a name="l00070"></a>00070       } <span class="keywordflow">else</span> A.sub(B); 
<a name="l00071"></a>00071     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;sub A B&quot;</span>;
<a name="l00072"></a>00072   }
<a name="l00073"></a>00073   
<a name="l00074"></a>00074   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;mul&quot;</span>) { <span class="comment">// in place</span>
<a name="l00075"></a>00075     <span class="keywordtype">string</span> a, b;
<a name="l00076"></a>00076     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;b) {
<a name="l00077"></a>00077       Buffer A; get_buffer(A,a);
<a name="l00078"></a>00078       Buffer B; get_buffer(B,b);
<a name="l00079"></a>00079       <span class="keywordflow">if</span>(A.empty) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer not found&quot;</span>;
<a name="l00080"></a>00080       <span class="keywordflow">if</span>(B.empty) {
<a name="l00081"></a>00081         <span class="keywordtype">double</span> v=as_double(translate_var(b));
<a name="l00082"></a>00082         A.mul(v);
<a name="l00083"></a>00083       } <span class="keywordflow">else</span> A.mul(B); 
<a name="l00084"></a>00084     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;mul A B&quot;</span>;
<a name="l00085"></a>00085   }
<a name="l00086"></a>00086   
<a name="l00087"></a>00087   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;div&quot;</span>) { <span class="comment">// in place</span>
<a name="l00088"></a>00088     <span class="keywordtype">string</span> a, b;
<a name="l00089"></a>00089     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;b) {
<a name="l00090"></a>00090       Buffer A; get_buffer(A,a);
<a name="l00091"></a>00091       Buffer B; get_buffer(B,b);
<a name="l00092"></a>00092       <span class="keywordflow">if</span>(A.empty) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer not found&quot;</span>;
<a name="l00093"></a>00093       <span class="keywordflow">if</span>(B.empty) {
<a name="l00094"></a>00094         <span class="keywordtype">double</span> v=as_double(translate_var(b));
<a name="l00095"></a>00095         A.div(v);
<a name="l00096"></a>00096       } <span class="keywordflow">else</span> A.div(B);
<a name="l00097"></a>00097     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;div A B&quot;</span>;
<a name="l00098"></a>00098   }
<a name="l00099"></a>00099   
<a name="l00100"></a>00100   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;assign&quot;</span>) {
<a name="l00101"></a>00101     <span class="keywordtype">string</span> a, sval;
<a name="l00102"></a>00102     
<a name="l00103"></a>00103     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;sval) {
<a name="l00104"></a>00104       <span class="keywordtype">double</span> v=as_double(translate_var(sval));
<a name="l00105"></a>00105       <span class="keywordtype">int</span> bra=a.find(<span class="charliteral">&#39;[&#39;</span>);
<a name="l00106"></a>00106       <span class="keywordflow">if</span>(bra==a.npos) {
<a name="l00107"></a>00107         Buffer A; get_buffer(A,a);
<a name="l00108"></a>00108         A.fill(v);
<a name="l00109"></a>00109       } <span class="keywordflow">else</span> {
<a name="l00110"></a>00110         <span class="keywordtype">string</span> bufname;
<a name="l00111"></a>00111         bufname=a.substr(0,bra);
<a name="l00112"></a>00112         Buffer A; get_buffer(A,bufname);
<a name="l00113"></a>00113         a.erase(0,bra+1);
<a name="l00114"></a>00114         istringstream sa(replace_char(a,<span class="stringliteral">&quot;[],&quot;</span>,<span class="charliteral">&#39; &#39;</span>));
<a name="l00115"></a>00115         <span class="keywordtype">int</span> i0,i1,j0,j1,k0,k1;
<a name="l00116"></a>00116         <span class="keywordflow">if</span>(sa&gt;&gt;i0&gt;&gt;j0&gt;&gt;k0) {
<a name="l00117"></a>00117           <span class="keywordflow">if</span>(sa&gt;&gt;i1&gt;&gt;j1&gt;&gt;k1) {
<a name="l00118"></a>00118             <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i=i0;i&lt;=i1;i++) 
<a name="l00119"></a>00119               <span class="keywordflow">for</span>(<span class="keywordtype">int</span> j=j0;j&lt;=j1;j++)
<a name="l00120"></a>00120                 <span class="keywordflow">for</span>(<span class="keywordtype">int</span> k=0;k&lt;k1;k++)
<a name="l00121"></a>00121                   A.value(i,j,k)=v;
<a name="l00122"></a>00122           } <span class="keywordflow">else</span> {
<a name="l00123"></a>00123             A.value(i0,j0,k0)=v;
<a name="l00124"></a>00124           }
<a name="l00125"></a>00125         }
<a name="l00126"></a>00126       }
<a name="l00127"></a>00127     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;argument:\n bufname[i0,j0,k0]\n bufname[i0,j0,k0,i1,j1,k1] value&quot;</span>;
<a name="l00128"></a>00128   }
<a name="l00129"></a>00129   
<a name="l00130"></a>00130   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;fill&quot;</span>) {
<a name="l00131"></a>00131     <span class="keywordtype">string</span> a,sval;
<a name="l00132"></a>00132     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;sval) {
<a name="l00133"></a>00133       Buffer A; get_buffer(A,a);
<a name="l00134"></a>00134       <span class="keywordflow">if</span>(sval==<span class="stringliteral">&quot;x&quot;</span>||sval==<span class="stringliteral">&quot;y&quot;</span>||sval==<span class="stringliteral">&quot;z&quot;</span>) {
<a name="l00135"></a>00135         <span class="keywordtype">string</span> delta;
<a name="l00136"></a>00136         <span class="keywordflow">if</span>(ss&gt;&gt;delta) {
<a name="l00137"></a>00137           A.fill(sval,as_double(translate_var(delta)));
<a name="l00138"></a>00138         } <span class="keywordflow">else</span> A.fill(sval);
<a name="l00139"></a>00139       } <span class="keywordflow">else</span> {
<a name="l00140"></a>00140         <span class="keywordtype">int</span> tid=search_table(sval);
<a name="l00141"></a>00141         <span class="keywordflow">if</span>(tid&gt;=0) {
<a name="l00142"></a>00142           <span class="keywordtype">string</span> deri;
<a name="l00143"></a>00143           ss&gt;&gt;deri;
<a name="l00144"></a>00144           <span class="keywordflow">if</span>(deri==<span class="stringliteral">&quot;derive&quot;</span>) A.fill(*(table[tid]),<span class="keyword">true</span>);
<a name="l00145"></a>00145           <span class="keywordflow">else</span> A.fill(*(table[tid]),<span class="keyword">false</span>);
<a name="l00146"></a>00146         }
<a name="l00147"></a>00147         <span class="keywordflow">else</span> A.fill(as_double(translate_var(sval)));
<a name="l00148"></a>00148       }
<a name="l00149"></a>00149     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;argument:\n buffer table [derive]\n buffer x [delta]&quot;</span>;
<a name="l00150"></a>00150   }
<a name="l00151"></a>00151   
<a name="l00152"></a>00152   <span class="keywordflow">else</span> <span class="keywordflow">if</span>(op==<span class="stringliteral">&quot;load&quot;</span>) {
<a name="l00153"></a>00153     <span class="keywordtype">string</span> a,fname;
<a name="l00154"></a>00154     <span class="keywordflow">if</span>(ss&gt;&gt;a&gt;&gt;fname) {
<a name="l00155"></a>00155       Buffer A; get_buffer(A,a);
<a name="l00156"></a>00156       <span class="keywordflow">if</span>(A.empty) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;buffer not found&quot;</span>;
<a name="l00157"></a>00157       ifstream bdat(fname.c_str());
<a name="l00158"></a>00158       <span class="keywordflow">if</span>(bdat.fail()) <span class="keywordflow">throw</span> <span class="stringliteral">&quot;failed opening file&quot;</span>;
<a name="l00159"></a>00159       <span class="keywordtype">int</span> n=0;
<a name="l00160"></a>00160       <span class="keywordflow">while</span>(bdat.good()) {
<a name="l00161"></a>00161         <span class="keywordtype">double</span> d;
<a name="l00162"></a>00162         <span class="keywordflow">if</span>(n&gt;=A.size()) <span class="keywordflow">break</span>;
<a name="l00163"></a>00163         <span class="keywordflow">if</span>(bdat&gt;&gt;d) A.ptr[n++]=d;
<a name="l00164"></a>00164       }
<a name="l00165"></a>00165       bdat.close();
<a name="l00166"></a>00166     } <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;syntax: load buffer file&quot;</span>;
<a name="l00167"></a>00167   }
<a name="l00168"></a>00168   
<a name="l00169"></a>00169   <span class="keywordflow">else</span> <span class="keywordflow">throw</span> <span class="stringliteral">&quot;invalid operation&quot;</span>;
<a name="l00170"></a>00170   
<a name="l00171"></a>00171 }
</pre></div></div>
</div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Data Structures</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Functions</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>



<hr class="footer"/><address class="footer"><small>
Generated on Thu Jul 19 2012 12:00:34 for E-Drift by &#160;<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/>
</a> 1.7.5.1
</small></address>

</body>
</html>
